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3 COPY LOG7A22 ok MAD 7 ue 002500 33CE 198 A(ENTPT POINT TO MAP ENTRY POINT TABLE 
y JUS ICE UO SE aaa SIG IGE IGIGR RUG OSEESEUIGE Berea Ra CR AE KA ia bac 199 SESS TRS EET ESS eee SE EEEEREREE ESTATE TEER TEER EERE EEE 
5S x * 200 SSS SLPS SS SS SS SS SLT LSS SES SSS ES SS SSS SLE SS SRS SL SSS SE SSPSS SSS SPS SLPS SPSS SSeS eS £4 
6 * 4% PREREQUISITES CK * 201 ** +’ 
7k < 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) ek 
3 * NONE : 203 ** TO LOCATE THE CORPECT RULE TO INVOKE, TO OBTAIN THE PROPER 4k 
9 x es 204 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR * 
10 FAR OO IO ICO ICICI IOI ISI IIIS III Rk k ac ak ake ak 205 ** THE INDICATED MESSAGE (S). THERE ARE FOUR TABLES USED FOR THIS ** 
11 * : 206 ¥4 PURPOSE THEY ARE: ek 
12 * a MODIFICATIONS AH * ae 
13. * 4 208 ** STEP AND RULE ADDRESS TABLE wre 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND * 
15 * < 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. ** 
16 COO IO ICICI IO ICICI IG GC GCI oI A I ok a ak ac tek 211 ** ENTRIES ARE AS FOLLOWES ee 
ies ; 212 ** A) AN ADDRESS OF THE RULE DC START AREA 4k 
18 * kK REA'S INCORPOPATED eof ke * 213 ** B THE STEP NUMBER IN DECIMAL aK 
19 * Hi 214 ** | C) AN EQUATE FOR THE STEP NUMBER 4k 
20 * NONE * 5 se a #* 
54 * 216 ** RULE INFORMATION TABLE 4% 
22 CII IGG OI I GIO IO III I aI a ak ak a kak koko k ake ak ak ak 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE * * 
55 x a 219 ** THE APPROPRIATE RULE UNDER MDI. FACH RULE HAS ITS OWN +k 
sa x ere SPECIAL INSTRUCTIONS nee ne 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE TS 4k 
SG i 220 ** INDICATED WITH A X'0000t FOR THE RULE EQUATE. + 
26 * NONE * 22). a+ 
57 * 4c 222 ** SQUES ok 
98 EC IOI ICI IO OCG CC i a I aa aC I I III 2K aK kak k aso = A) RULE EQUATE X*"0100! ** 
59 224 +s B) ADDRESS OF THE YES LEG RULE 4k 
30 * ok SHC ok *x ** 
Nees Brat a z $38 ee SEIXT ay RULE EQUATE x*0104 ce 
32 * DATE 17AUG78 DATE 020CT78 DATE 10JAN79 DATE x X ; +s 
33 Xx E.C. 755391 E.C. 375102 £E.C. 375222 #£4¥F.C. * 53§ + BP ames Soe Semen aren vee 
3 * * 
35 IO IG I RO IG IG Ia ka aii alk akoak kak leak ak akakoke kak ak sok ak 230 ** $STOP * 
002500 37 I7A22 START X'2500! START ADDRESS OF ALL "It TYPE PROG 231 ** a) RULE EQUATE X'0102! 1 
000100 38 OOQUES FOU xX'0100! EQUATED VALUE FOR MDI STATEMENT 232 ** ADDRESS OF MESSAGE i 
000101 39 OFIXT EQU. x'0101° EQUATED VALUE FOR MDI STATEMENT 233 ** + 
000102 40 @STOP EQU x'0102! EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO 2k 
000200 41 @GOTO EOU x'0200° EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X*0200° * * 
000201 42 A@CALL EQU x'0201! EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE % 
000300 43 DINPT EQU xX'0300! EQUATED VALUE FOR MDI STATEMENT 231) 4% C) NAME OF MAP TO GO TO * 
000400 44 @OUXX EQU x'O4OO0! EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE ** 
000500 u5 aptTuxx EQU X¥'0500! EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * 
000600 46 @NVLD EQU x*'06008 EQUATED VALUE FOR MDI STATEMENT 241 ** id 
000000 47 E EOU. x'0000! EQUATE FOR E 242 *%* $CALL * * 
000004 48 N EQU. x?OOO4" EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X*0201' ** 
000008 49 HI EQU xX'0008! EQUATE FOR 24Q ** B) ADDRESS OF MESSAGE ** 
00000C 50 NH FOU x'oo0dc! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL ex 
000010 51 Lo EQU X¥'0010! EQUATE FOR 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * x 
000014 52 NL EQU X'0014! EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * 
000010 53 LT EQOU xX'0010! EQUATE FOR LESS THAN 248 ** ** 
00000C 54 LE FOU x'OO00C! FQUATE FOR LESS THAN OR EQUAL TO 249 :=* SINPT , peed 
000008 55 Gt EQU x'00O08! FQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X*0300! <* 
000014 56 GE EQU X'0014! EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE gepedrc OR_ HEX) * * 
000200 57 ON EQU x*'0200! EQUATE FOR ON 252 ** C) ADDRESS OF YES LEG RULE ie 
000202 58 OF FOU X'02028 FQUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA * 
000204 59 MX EOU x'O204' FOUATE FOR MIXED 20) ** E) LENGTH OF INPUT DATA * * 
000000 60 EBC EOU xX*'0000' EQUATE FOR FBCDIC DATA TRANSFER 295 ** F) LOWER LIMIT OF GOOD DATA yaad 
000001 61 HEX FOU xX*0001°8 EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA ** 
000001 62 XTRNL EOQU xX'0001' FOUATE FOR EXTERNAL REFERENCE 25] ** ** 
000000 63 INTRNL FOU  x'00008 FOQUATE FOR INTERNAL REFERENCE 200: ** $QUXX * * 
000000 64 PARM EOU xX*0000' EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE X*0400' ** 
000001 65 DA EQU X*tOO01! EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE ** 
000002 66 EQU. xX'0002" EQUATE FOP UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS (INITIAL * 
000000 67 DUMMY EQU X¥'O0000! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS SECONDARY) * 
001800 69 PID EOU *-X'ODOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES * + 
000232 70 PTYPE EOU *-X"22CE? ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU * 
00180C 71 STEPNUM EQU PID+x*000C! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER +x 
00180E 72 OPWD1 EQU PID+X*OOOE® ADDRESS OF OPTION WORD ONE 266 ** * 
001810 73 OPWD2 FOU PID+X'00108 ADDRESS OF OPTION WORD TWO 267 ** STUXX + 
001818 74 TUSTATUS EQU PID+X*'00188 ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE X*0500' ee 
00181A 75 TUWORK EQU  PID+X'OO1A* ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE ** 
00189A 76 TUPARM1 EQU PID+X'OOQ9A! ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS ** 
00189C 77 TUPARM2 EQU PID+X*"009C" ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE on RESULTS ** 
001895 78 TUPARM3 EQU  PID+X'O09E! ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULT + 
0018A0 79 TUPARMG EQOU PID+X'OOAO! ADDRESS OF PARM 4 POINTER 273 ** F) MASK FIELD FOR COMPARE * * 
0018A2 80 TUPARMS EQU  PID+X'OOA2* ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES se 
0018A4 81 TUPARM6 EQU PID+X'OOAG? ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU ** 
0018A6 82 TUPARM7 EQU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 216 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ** 
001848 83 TUPARM8 EQU  PID+X'OOA8! ADDRESS OF PARM 8 POINTER A i es ** 
0018AA 84 TUPARM9 EQU  PID+X'OOAA' ADDRFSS OF PARM 9 POINTER 218 ** SNVLD * 
O0018AC 85 TUPARM10 EQU PID+X'OOAC! ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X*'0600! * 
0018AE 86 TUPARM11 EQU PID+4X'OOAE' ADDRESS OF PARM 11 POINTER 281 ** ** 
0018B0 87 TUPARM12 EOU PID+X'OORO® ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE ** 
0018B2 88 TUPARM13 EOQU PID+X'O00B2! ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * * 
0018B4 89 TUPARM14 EQU  PID+X'OOBY! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * 
0018B6 90 TUPARM15 EOU PID+X'QOBE! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: ** 
0018B8 91 TUPARM16 EQU PID+X*OOBS8! ADDRESS OF PARM 16 POINTER 286 ** ‘ ** 
0018BA 92 TUMSGWTR FOU PID+X'OOBA® ADDRESS OF —> TO COMMON MSG WRITER 287 ** A) NAME OF ENTRY POINT ** 
0018BE 93 TUUA EQU PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE * 
0018C0 94 TUDA EQU PID+X*O0CO! ADDRESS OF DEVICE ADDRESS IN EBC 289 ** ** 
0018C2 95 TUBUFF EQU  PpID+X'00C2! ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A X'Q000!* ** 
0018C4 96 TULAST EQU  PID+X'O0C4' ADDRESS OF LAST ADDRESSABLE WORD 291 ** * x 
0018C6 97 TURESULN EQU PID+X'OOC6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE * 
0018C8 98 TURESUL EQU PID+X'00C8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINFS THE MESSAGE PASSED TO THE OPERATOR * 
0018FC 99 MAPNAME FOU PID+tX'OOFCt ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: * 
001948 100 TUINPT FOU PID+x'0148! ADDRESS OF $INPT DATA 295 ** ** 
00196E 101 PARMARA EQU  PID+X'O16E! ADDRESS OF $INPT INPUT AREA 296 ** A eyueLe FOR START OF MESSAGE BLOCK x 
0019B8 102 @DCADD1 EQU  PpID+txX'0O1B8! MDI POINTER 29] ** B) NUMBER OF LINES OF MESSAGE ** 
0019BA 103 @DCADD2 FOU PpID+X'O1BA! MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE * * 
0019C4 104 SUPSTAT EOU pID+X'01C4" ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE ** 
0019D0 105 DEVADD EQU PpID+X'01D0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE xe 
0019DA 106 DEVADD1 EQU  PID+X'O1DA' ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE ** 
0019E4 107 DEVADD2 EQU PID+X'O1E4? ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G) ETC. ** 
0019FE 108 DEVADD3 EQU  PID+tX'01EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** ** 
0019F8 109 DEVADDY FOU PID+X'O1F8? ADDRESS OF DEVICE ADDRESS TABLE 4 JOM HK KK KK OK KK RK KK ok ok kok ok ok kok ok kok kk tok kota kok koko tok ak kok koko ak fog RK NOK i ak kok ek ok ok 
001A02 110 DEVADDS EOU PID+X*0202! ADDRESS OF DEVICE ADDRESS TABLE 5 305 x 2K KK KK Ko kK kK a kok kok ok ok kk ok ok ok kok dak ik kokok kk kok tk ki FR ii FOR aR IORI Rk kok gai k aged ak 
001A0C 111 DEVADD6 EOU  PID+X'020C' ADDRESS IF DEVICE ADDRESS TABLE 6 
001A 16 112 DEVADD7 E Ue PID+X" 0216" ADDRESS OF DEVICE ADDRESS TABLE 7 
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OBJECT TEXT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
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00368E 0001 2816 pc AL2 (0001) 000020 29 324MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 
003690 0008 2817 DC A (0 08) 000021 2933+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 
003692 D&CIDIF7C1F7F6C6 2818 DC CLOOO8* MAPTAT6F! 000022 29344+XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 
00369A 2819 FOO644 EQU * 000023 2935+IN EOU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 
00369A 0001 2820 DC AL2 (0001) 000024 2936+XE EQU 36 m1 8 EXPECTED ERROR RESPONSE 
00369C 0008 2821 DC A (0 08) 000025 2937+HE EOU 37 5 4 HARD ERROR, 8 RETRIES 
00369E D4&CIDIF7C1F7F6C6 2822 Dc CLOOO8* MAPTA76F* 000026 2938+$LE EOU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 
0036A6 2823 FOOO4S EQU * 000027 29394NI EOU 39 7 1 NO INTERRUPT EXPECTED E 
0036A6 0001 2824 DC AL2 (0001) 000028 2940+4CS EQU 40 8 8 CYCLE STATUS IN PROGRESS 
0036A8 OOOA 2825 DC A (0 10) 000029 2941+CSA EOU 4 9 4 CYCLE STEAL AVAILABLE 
0036AA DUCID7IF7C1IF7FO60C 2826 DC CLOO10"MAP7A70-A °* 00002A 29424CE EQU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 
0036B4 2827 F00657 EQU * 00002B 2943+ISBON EQU 43 11 1 ISB BITS ON (1-7) 
0036B4 0001 2828 DC AL2 (0001) 00002C 29444NG EQU ToT 12 8 TEST UNIT RESULTS NO GOOD 
0036B6 0008 2829 DC A (0 08) 00002D 2945+IOCC EOU u5 13 4 OIO CC ERROR 
0036B8 DU&CITID7FICIF7F2C3 2830 DC CLOO0O8* MAP7A72C! 00002E 2946+NOIN EQU 46 14 2 NO INTERRUPT 
0036C0 2831 FO00679 EQU * 00002F 2947+INCC EOU 47 15 1 INTERRUPT CC ERROR 
0036CO 0001 2832 D AL2 (0001) 29484+* 
0036Cc2 0008 2833 DC A (0008) 2949+ COMMON BUFFER FOR PRINTING DATA 
0036C4 DUCID7TFIC1IF7F6C6 2834 DC CLOO08* MAP7TA76F! 2950+* 
0036CC 2835 F00689 EQU * 003786 0000 2952+$TUID DC A (*-* TEST UNIT IDENTIFICATION 
0036cCcC 0001 2836 DC AL2 (0001) 003788 0000 2953+$IOIN DC A (*-* I/O AND INTR CONDITION CODES 
0036CE 0008 2837 DC A (0 08) 00378A 0000 2954+$ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS 
0036D0 D4&C1ID7F7C1F7F6C6 2838 DC CLOOO8" MAP7A76F'° 00378cC 0000 2955+LSTIO DC A (*-* ADRS OF LAST I/O + 4 BYTES 
0036D8 2839 F00698 EQU * 00378E 0000 29564+DEV1 DC A (*-* DEVICE DEPENDENT DATA 
0036D8 0001 2840 DC AL2 (0001) 003790 0000 2957*#DEV2 DC A (*-* * 
O036DA 0008 2841 DC A (0 08) 003792 0000 2958+DEV3 DC A (*~* * 
0036DC D4&C1D7F7C1F7F6C6 2842 DC CLOOOS"*MAPTAT6F! 003794 0000 29594+DEV4 DC A (*-* CS STATUS ERROR ISB & INTR CC 
0036E4 2843 F00708 EQU * 00378E 2960+SCTID EQU DEV1 READ ID BUFFER FOR IBIS & TERN 
0036E4 0001 2844 DC AL2 (0001) 003796 2961+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 
0036E6 0008 2845 DC A (0 08) 003796 0000 2962+DCB1 D A (*-* LAST DCB TABLE, CONTROL WORD 
0036E8 D4C1D7TF7IC1F7F6C6 2846 DC CLO0O08" MAPTAT76F' 003798 0000 2963+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
0036F0 2847 F00722 EQU * 00379A 0000 29644+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
0036FO0 0001 2848 DC AL2 (0001) 00379C 0000 2965+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
0036F2 0008 2849 DC A (0008) 00379E 0000 2966+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
0036F4 D4CID7F7C1F7F6C6 2850 DC CLOOO8' MAPTA76F! 0037A0 0000 2967+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 
0036FC 2851 F00732 EQU * 0037A2 0000 2968+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 
0036FC 0001 2852 DC AL2 (0001) 0037A4 0000 2969+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 
0036FE 0008 2853 DC A(0O 08) 2970+* 
003700 D4&C1ID7F7C1F7F2C7 2854 DC CLOOO8"MAP7A72G" 0037A6 2371+CSBOF EQU * CYCLE STEAL DATA BUFFER 
003708 2855 F00735 EQU * 0037A6 0000 2972+CSTL1 D A (*-* STATUS WD 0, RESIDUAL ADDRESS 
003708 0001 2856 DC AL2 (0001) 0037A8 0000 2973+CSTL2 DC A (*-* Gs STATUS WD 1, RESIDUAL COUNT 
00370A 0008 2857 DC A (0008) 0037AA 0000 29744+CSTL3 DC A (*-* CS STATUS WD 2, RETRY CNT WD 1 
00370C D&CID7IF7C1F7F2C7 2858 DC CLOOO8*MAPT7A72G° 0037AC 0000 2975+CSTL4Y DC A (*-* CS STATUS WD 3, RETRY CNT WD 2 
003714 2859 FOO741 EQU * 0037AE 0000 2976+CSTL5 DC A (*-* CS STATUS WD 4, ERROR STATUS WD 1 
003714 0001 2860 DC ALZ (0001) 0037B0 0000 2977+CSTL6 DC A (*-* CS STATUS WD 5, ERROR STATUS WD 2 
003716 0008 2861 DC A (0 08) 0037B2 0000 2978+CSTL7 DC A (*-* CS STATUS WD 6, LAST DCB ADDRESS 
003718 D&CID7F7C1F7F6C6 2862 DC CLOOO8*MAPTAT6F! 0037B4 0000 29794CSTL8 DC A (*-* CS STATUS WD 7, PREVIOUS HD/CYL 
003720 2863 FO0752 EQU * 0037B6 0000 2980+CSTLY DC A (*-* CS STATUS WD 8, CURRENT HD/CYL 
003720 0001 2864 DC AL2 (0001) 003788 0000 2981+CST10 DC A (*~* CS STATUS WD 9, FLAG/SECTOR 
003722 0008 2865 DC A (0008) 0037BA 0000 2982+CST11 DC A (*-* CS STATUS WD 16, HEAD/C YLINDBR 
003724 D4CID7F7C1F7F2C6 2866 DC CLOOOS'MAPTAT72F® 0037BC 0000 2983+CST12 DC A (*-* CS STATUS WD 11, DIAG BYTES 
00372C 2867 FO00759 EQU * 0037BE 0000 29844+CST13 DC A (*-* CS STATUS WD 12, AND 3 + i aD ‘athe 
00372c 0001 2868 DC AL2 (9001) 2985+* 
00372E 0008 2869 DC A (0008) 0037C0 0000 2986+SSUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 
003730 D&C1D7F7C1F7F6C6 2870 DC CLOOO8* MAPTAT6F! 0037C2 00000000 2987+$DATA DC 2A (*-* OPTIONAL DATA 
003738 2871 FO00762 EQU * 0037C6 0021 2988+$INTL DC X¥*0021' INTERRUPT LEVEL REQUESTED 
003738 0001 2872 DC AL2 (0001) 0037C8 0000 2989+TURTN DC A (#-*) TEST UNIT RETURN ADRS TO MDI 
00373A 0008 2873 DC A (0008) 0037CA 00 29904+$DVID DC x"oo! DEVICE ID 
00373C D4&C1ID7F7C1F7F2C6 2874 DC CLOOO8'MAP7A72F! 0037CC 19D0 2991+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 
003744 2875 FO00765 EQU * 0037CE 0000 2992+ DC A (*-*) IBIS CYLINDER ADDRESS 
003744 0001 2876 DC AL2 (0001) 2993+* 
003746 0008 2877 DC A (0 08) 2994+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
003748 D4C1ID7F7C1F7F2C6 2878 DC CLOOO8*MAPTA72F'! 2995+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
003750 2879 FO0772 EQU * 2996+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
003750 0001 2880 DC AL2 (0001) 2997+* 
003752 0008 2881 DC A(0 08) 0037D0 4020 3786 7A02 2998+T7A02 MVWI X'7A02',$TUID SET UP TEST UNIT ID 
003754 D4C1ID7F7C1F7F6D4 2882 DC CLOO08* MAP7TA76M' 0037D6 5700 2999+ BXS dk R7 RETURN TO MDI SUPVR 
00375C 2883 FO0775 EQU * 3001 COPY OMEQU 
00375C 0001 2884 DC Be ogo) CIC(WAE SETS SPE SSIES SE SES SS SESS SSS SE SSE SS SES SEES ESE SESS SSE S ESS SSE LE SPSS ETS SS tt StS 
00375E 0008 2885 DC A (0 08) 3003 * * 
003760 D4&C1D7F7C1F7F2D9 2886 DC CLOO08* MAPTA72R' 3004 * EQUATED NAMES FOR SUPPORTED SVC'S * 
003768 2887 FO0782 EQU * 3005 * * 
003768 0001 2888 DC a ene, ZOQG RH KH KK He Ke ee OK eK 2K a ea aK ak he 2K i ate 2h a 2h 2h fc fe eae a 2 ate 2k a i 2c ae a fe ie ae ae ae 2c ae 2c ak ic ak ae fe ae 2k oe 2c ke 2c 2 2k ok ok ok 
00376A 0008 2889 DC A (0008) 000000 3007 OUT EQU 0 OUT SVC 
00376C D4&C1ID7IFIC1IF7F2E7 2890 DC CLOOO8*MAP7A72X° 000001 3008 OUTIN EQU 1 OUTIN SVC 
003774 2891 FO00796 EQU * 000002 3009 IDLE EQU 2 IDLE svc 
003774 0001 2892 DC AL2 (0001) 000003 3010 IDLES EOU 3 IDLE SVC - INDEPENDENT OF CPU TYPE 
003776 0008 2893 DC A (0008) 000004 3011 CHNGE EOU 4 CHANGE LEVEL SVC 
003778 D&C1ID7F7IC1F7F2E2 2894 DC CLOOO8*MAP7TA72S! 000005 3012 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
2895 DIT 00 000006 3013 EXIT EOQU 6 EXIT SVC 
003780 0000 2897+OPTN1 DC X*00008 PROGRAM OPTION CONTROL WORD 1 000007 3014 TERM EQU 7 TERMINATE SVC 
2898+ 000008 3015 RESET EQU 8 RESET DEVICE SVC 
003782 0000 2899+OPTN2 DC x'0000! PROGRAM OPTION CONTROL WORD 2 000009 3016 RID EQU 9 READ ID SVC 
2900+* BIT HEX OOOOOA 3017 START EQU 10 START CYCLE STEAL SVC 
000010 2901+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 00000B 3018 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
000011 2902+B49 EOU 17 1 4 * 00000C 3019 PREP FOU 12 PREPARE DEVICE SVC 
000012 2903+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 00000D 3020 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
000013 2904+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO OOO000E 3021 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
000014 2905+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER OOO000F 3022 RSTAT EQU 15 READ STATUS SVC 
000015 2906+B53 EQU 21 5 4 * 000010 3023 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000016 2907+B54 EQU 22 6 2 * 000011 3024 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
000017 2908+B55 EQU 23 7 1 * 000012 3025 CTRL EQU 18 CONTROL SVC 
000018 2909+B56 EQU 24 8 8 * 000013 3026 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000019 2910+B57 EQU 25 9 m1 * 000014 3027 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
OOOOTA 2911+B58 EOU 26 10 2 * 000015 3028 HIO EQU 21 HALT ALL I¢0 
00001B 2912+B59 EOU 27 11 1 * 000016 3029 REQSD EQU 22 REQUEST USE OF DCP DISK SVC 
00001C 2913+B60 EQU 28 12 8 * 000017 3030 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
00001D 2914+B61 EOU 29 13 4 * 000018 3031 HALT EQU 24 HALT SVC 
OO001E 2915+B62 EQU 30 14 2 * 000019 3032 ETOH FEQU 25 EBCDIC TO HEX SVC (STRING 
00001F 29 16+B63 EQU 31 15 1 * OOOOTA 3033 HTOF FQU 26 HEX TO EBCDIC Svc (STRING 
000018 2917+CH EQU 30 14 2 CHARACTER SUPPLIED 00001B 3034 ATOH EQU 27 ASCII TO HEX SVC TRING 
OOO0O01F 2918+4+CMP EQU 31 15 1 COMPARE OPERATION 00001C 3035 HTOA EQU 28 HEX TO ASCII Svc (STRING 
003784 0000 2920+O0PTN3 DC x'o0000!8 PROGRAM OPTION CONTROL WORD 3 00001D 3036 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING) ' 
2921+ OO001E 3037 ATOF EOU 30 ASCII TO EBCDIC SVC STRING 
2922+* QO MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs O0001F 3038 READI EQU 31 READ DATA SETS FOR MDI/UTIL 
2923+* 1 #3ERROR INTERRUPT ER 9 CS AVAILABLE CSA 000020 3039 WRIT EQU 32 WRITE DATA SETS FOR UTIL 
2924N4+% 2 EXPECTED INTERRUPT XT 10 CS STATUS INTERRUPT ERR CE SOUT RM KK Re KK HE OK RK ee aK I A A 2 a he a he a ee aK i hc oc i eK eo kc 
2925+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 3042 * * 
2926+* 3043 * EQUATES USED BY TU'S AS CONSTANTS * 
2927+* 4 EXPECTED ERR/ATIBNT XE 12 TEST UNIT RESULTS VOID NG 3044 x * 
2928+ 5 HARD ERROR UND HE 13 OIO CC ERROR TOCC BO 5 HH A Hee HK Ae ee 2 eK a eK 2 Oe ee Eo he He hc a i ok hc a i ke 2 he 
2929+* 6 WRONG INTR LEVEL $LE 14 NO INTERRUPT NOIN OOOO4E 3046 PLUS FEQU Cit PLUS CHAR 
2930+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 000060 3047 MINUS RQU cr-t MINUS CHAR 
2931+* BIT HEX 000000 3049 ZERO EQU 0 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000001 3050 ONE EOU 1 003832 0000 3167 DC For NOT USED 
000002 3024 two EoD 2 003834 OO1A 3168 DC X'OO1A! 13 WORDS OF STATUS 
000003 3052 THREE EOU 3 003836 37A6 3169 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 
000004 3053 FOUR EOU 4 3170 * 
000005 3054 FIVE EOU 5 3171 ****#* WRITE DCB *#**4*44#4% 
000006 3055 SIx FOU. 6 3172 * 
000007 3056 SEVEN EQU 7 003838 0028 3173 WRDCB DC xX'0028! WRITE DATA DCB CNTL WORD 
000008 3057 EIGHT EOU 8 00383A 0000 3174 DC _ A(*-* FLAG / RECORD# 
000009 3058 NINE EOU 9 00383c 0000 3175 DC A (*-* HEAD / CYLIDNER#'S 
OOOOOA 3059 TEN EOU 10 00383E 0000 3176 DC A (*-* SCAN / REPEAT COUNT 
000008 3060 ELEVN EOU 11 11 003840 38B2 3177 DC A (RSBA) RSB ADDRESS 
00000D 3062 THRTN FOU 13 13 003844 0100 3179 DC X¥*01008 BYTE COUN 
OOO000F 3063 FIVTN EOU 15 15 003846 0000 3180 DC A (*-*) WRITE DATA ADDRESS 
000010 3064 SIXTN EOU 16 16 3181 * 
000020 3065 THRY2 EQU 32 32 3182 **4*** VERIFY DCB **##*#* 
000040 3066 SIXT4 EQOU 64 64 3183 * 
000080 3067 ONE28 FOU 128 128 003848 0019 3184 VRDCB DC Xx*0019" CONTROL WORD 
000100 3068 TWO56 EQU 256 256 00384A 0000 3185 DC A (*-* FLAG / RECORD# 
000400 3069 ONEK EOU 1024 1024 00384C 0000 3186 DC A (*-* HEAD / CYLINDER#'S 
000800 3070 TWOK EOU 2048 2048 00384E 0000 3187 DC A (*-* SCAN Reeeee COUNT 
000C00 3071 THREK EQU 3072 3072 003850 38B2 3188 DC A (RSBA) RSB ADDRES 
001000 3072 FOURK EQU 4096 4096 003852 0000 3189 DC A +} CHAIN ADDRESS 
FFFFFF 3074 M EOU aot -1 003854 0000 3190 DC A (*-* BYTE COUNT 
FFFFFE 3075 M2 EQU ~?2 3, 003856 0000 3191 DC For NOT USED 
FFFFFD 3076 M3 FOU +3 -3 3192 * 
FFFFFC 3077 Mu EOU 6-4 -4 3193 ***** READ DCB = ****##* 
3079 3 III ICICI IGRI IG ICR IIIS OIG OO IK kok ac 3194 * 
3080 * * 003858 2018 3195 RDDCB DC X*'*2018! READ DCB CONTROL WORD 
3081 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 00385A 0000 3196 DC At FLAG / RECORD# 
3082 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 00385C 0000 3197 DC A(t-* HEAD / CYLINDER#'S 
3083 * * 00385E 0000 3198 DC A (*-—* SCAN REPEAT COUNT 
3080 3 ORIG II II IIE ICICI OR IOI IG IO gk kkk aa aK gat ok 003860 38B2 3199 DC A (RSBA) RSB_ADDRESS 
000000 3085 BSO EQU 0 003862 0000 3200 DC A (*-* CHAIN ADDRESS 
000001 3086 BS1 EQU 1 003864 0100 3201 DC X¥*0100! BYTE COUNT 
000002 3087 BS2 EQU 2 003866 0000 3202 DC A (*-*) READ DATA ADDRESS 
000003 3088 BS3 EOU 3 3203 * 
000004 3089 Bsa EOU i 3204 **** WRITE SECTOR ID SKEWED KK 
000005 3090 BSS EQU-E 5 : 3205 * 
000006 ; 3091 BS6 EQU 6 003868 002F 3206 WKDCB DC X*OO2F' CONTROL WORD 
000007 3092 BS7 FOU 7 00386A 0000 3207 DC aos FLAG / a eee SECEORS 
000008 3093 BS8 FOU 8 00386C 0000 3208 DC A (*-* HEAD / CYLINDER#'* 
000009 3094 BS9 EQU 9 00386E 0000 3209 DC Ftot NOT USED 
OOOO0A 3095 BS10 EQOU 10 003870 38B2 3210 DC A ro#)) RSB ADDRESS 
OOO000B 3096 BS11 EQU 11 003872 0000 3211 DC A *— * CHAIN ADDRESS 
00000Cc 3097 BS12 EQU 12 003874 0004 3212 DC 000 BYTE COUNT 
00000D 3098 BS13 EOU 13 003876 38A6 3213 DC A (WRSID) ADDR OF SECTOR ID DATA 
O0000F 3099 BS14 EQU 14 3214 * 
OO000F 3100 BS15 EQU 15 aSa2 oo READ SECTOR ID SKEWED * KKK 
COPY TV7AOODCB 23JAN78 
3103 ** (T7AQODCB) 003878 201D 3217 RKDCB DC X*201D! CONTROL WORD 
3104 * 00387A 0000 3218 DC A (*-* FLAG / PHYSICAL SECTOR# 
BVO 5 a oe ae ae a FH I He HI He HO OR OR RR RY 2 G/T DR ROK EK 00387C 9000 3219 DC Aye *) HEAD / CYLINDER#'S 
3100 * 00387E 0000 3220 DC 3—séF Fr NOT USED 
3107 * DCB TABLES AND DC's 003880 38B2 3221 DC A (RSBA) RSB_ADDRESS 
3108 * 003882 0000 3222 DC A (#—* CHAIN ADDRESS 
3109 3 OIC IO I IG I OR IG IIIS OR GIG IRR AR OI II i kak 003884 0004 3223 DC x*o0041 BYTE COUNT 
3110 * 003886 378E 3330 ‘ DC A (SCTID) SECTOR ID DATA ADDRESS 
1 *****x DTAGNOSTIC DCB He He ee eK OK 
sasaias Saas 3112 * Ee aos READ MULTIPLE SECTOR IDS KOK 
D 0 3113 DGDCB DC x*2008!8 DIAGNOSTIC DCB 
OO37DA 0000 3114 DC A (*-* FLAG / PHYSICAL SECTOR# 003888 201C 3228 RMDCB DC X*'201C! CONTROL WORD 
0037DC 0000 3115 pc A feos HEAD / CYLINDER#'S 00388A 0000 3229 DC af} FLAG / PHYSICAL SECTOR# 
0037DE 0000 3116 DC ‘000 NOT USED 00388c 0000 3230 DC A HEAD / CYLINDER#'S 
0037E0 38B2 3117 DC A RSBA) RSB ADDRESS 00388E 0000 3231 DC O° NOT USED 
0037E2 0000 3118 DC CHAINING ADDRESS 003890 38B2 3232 DC bean RSB ADDRESS 
gg37E4 9190 3119 BE 070: BYTE COUN g0383% 9990 33300 BE B08 SPAIN ABURESS 
- DATA ADDRESS 
3121 * A ( ) 003896 38C2 3235 DC A (1D00) DATA AREA ADDRESS 
3122 ****k* RECALIBRATE DCB ** #2 3236 * 
3123 * 3237 * CONSTANTS AND DEFINED STORAGE LOCATIONS 
0037E8 0001 3124 CLDCB DC x'o0018 RECALIBRATE DCB 003898 0000 3238 ZEROO DC X'00008 CONSTANT ZERO 
0037EA 00000000000000000 3125 DC 7A (*-*) 00389A 0001 3239 ONE1 DC X'O001! CONSTANT ONE 
3126 * 00389C 0000 3240 RAY DC A (*-* WRITE PARAMETER POINTER 
3127 ***** WRITE SECTOR ID I FO ok 00389E EB6D 3241 WDATA DC X*EBO6D! WRITE DATA 
poeaes 3128 * OO38R2  ORRD 3343 ucsec be ee ObbRe L 
F 002D 3129 WSDCB DC x" 02D" WRITE SECTOR ID CNTL WORD X LOGICAL SECTOR # 
0037FA 0000 3130 DC A FLAG / PHYSICAL SECTOR# 0038A4 0000 3244 PHYSC DC X'O000! CONVERTED PHYSICAL SEC # 
0037FC 0000 3131 Dc A HEAD / CYLINDER#'S O0O038A6 0000 3245 WRSID DC X*o0000! FLAG,SECTOR (WRT SECTOR ID DATA) 
O037FE 0000 3132 DC LD ges NOT USED 0038A8 0000 3246 DC X'Q0008 HEAD "CYLINDER 
003800 38B2 3133 pc A BSBA) RSB ADDRESS OO38AA FF34 3247 WSIDT DC X'FF34't WRITE SECTOR ID TEST DATA 
003802 0000 3134 DC A CHAIN ADDRESS O038AC 5678 3248 DC X'5678! * 
003804 0O0004 3135 DC CF pe BYTE COUNT OO38AE 0000 3249 SCTST DC Xx'00008 READ SECTOR ID TEST DATA BUFFER 
003806 38A6 3136 DC A (WRSTD) ADDR OF SECTOR ID DATA 0038B0 0000 3250 DC X'0000' 
3137 * 0038B2 00000000000000000 3251 RSBA DC oe Aaa RESIDUAL STATUS BLOCK 
3138 ***** READ SECTOR ID DCB ****#Kx OO38BE 0000 3252 CTRO2 DC X'*0000 COUNTER 
3139 * 0038Cc0 0000 3253 CTRO3 DC Xx*'*0000! COUNTER 
003808 201C 3140 RSDCB DC "201C' READ SECTOR ID CNTL WORD / 0038C2 0000 3254 Ip0O0 pc X'0000°8 ID ADDRESS TO BE SET BY USER 
O0O0380A 0000 3141 DC A (#- FLAG / PHYSICAL SECTOR# 0038C4 1010 3255 PDATA DC xX*1010! WRITE DIAG WORD 1 DATA PATTERNS 
00380C 0000 3142 DC 000 HEAD 7” CYLINDER#*S 0038C6 5555 3256 DC X*5555! * 
00380F 0000 3143 DC Xe 00008 NOT USED 0038C8 AAAA 3257 DC X*AAAAt ‘a 
003810 38B2 3144 DC A(RSBA) RSB ADDRESS OO38CA FFFF 3258 DC X'FFFF* * 
003812 0000 3145 DC A (k—* CHAIN ADDRESS 3259 * 
003814 0004 3146 fe X "000 BYTE COUNT FOR READ SECTOR ID 3260 SEA AE AACE EEE 06 TABATA I EA ER TOI tot 
E DC A (SCTID SECTOR ID DATA ADDRESS 
Sertiee ( ) DDR 3262 * SUBROUTINE 
31409 **eee SPEK DCB kA 3263 * 
003818 Q000 4129 5 33¢8 * Ranentes 
SKDCB DC X*Q000!8 SEEK DCB CONTROL WORD 
00381A 0000 3152 DC x'0000!8 NOT USED 3266 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 
00381C 0000 3153 DC A (*-* HEAD Z CYLINDER#! S 3267 * 
00381E 0000 3154 DC x*o0008 NoT us 3268 * CALLING SEQUENCE 
003820 38B2 3155 DC A (RSBA) RSB ADDRESS 3269 * 
003822 0000 3156 DC A (k—* CHAIN ADDRESS 3270 * BAL CMPRW,R6 (NORMAL) 
003824 0000 3157 DC X*00008 NOT USED 3277 * 
003826 0000 3198 | DC X*0000" NOT USED 3242 ¢ RETURN 
3160 s#*** CYCLE STEAL STATUS DCB +#*+##4# oe BXS (R6,2) - NORMAL 
003828 2000 3162 CSDCB DC '2000! CONTROL WORD 3276 * 
003824 0000 3163 DC x6 NOT USED 3277 ORI I I IGOR OR IIR oR RR mg OIG a ROI OR ag fk tak 
00382C 0000 3164 DC Ftor NOT USED 3278 * 
00382E 0000 3165 DC Ftot NOT USED 0038CC 4724 0004 3279 CMPRW MVWI 4,R7 COMPARE BYTE COUNT 
003830 0000 3166 DC Ftoe NOT USED 0038D0 4324 378E 3280 MVA s€TID, R3 ADDR OF RD SEC ID DATA 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 

0038D4 4524 38A6 3281 MVA WRSID,R5 ADDR OF WR SEC TID DATA 003986 3022 3396 SRL 4,RO RIGHT JUSTIFY FUNCTION BITS IN RO 
0038D8 2BA6 3282 CFNEN (R3), (85) COMPARE ID DATA 0039B8 F005 3397 CBI 3, RO IDCB FUNCTION = 5? 

0038DA 68C0 0002 3283 BE R6, 2) BCH IF WRITE ID DATA OK O0039BA 1003 3398 JE SHRI 1 YES - ISSUE ‘SVC WRIT1* 

0038DE 68D2 0000 3284 B RO) * COMPARE ERROR 0039BC 6010 3399 SVC WRITO ISSUE WRITE DPC '4X' OP 

3286 aOR RIOR ROR IGOR ICI CORIO OO I i ak ick ik a OO39BE 6802 3A42 3400 B XIO8-4 GO WAIT FOR THE INTERRUPT 

3287 * 0039C2 6011 3401 $WRT1 SVC WRIT1 ISSUE WRITE DPC '5X* OP 

3288 * FXEFCUTE INPUT & OUTPUT COMMANDS 0039C4 6802 3A42 3402 B XIO8-4 GO WAIT FOR THE INTERRUPT 

3289 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 3403 * 

3290 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 0039C8 4020 3AFA 3838 3404 $SDGWR HVA WRDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 

3291 : LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE O0O039CE 6802 39EE Sor : B XIODG ISSUE START CS DIAG CMD 

3293 * 7 0039D2 4020 3AFA 3858 3407 $DGRD MVA RDDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 

3294 x THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 0039D8 6F08 3864 3408 MVW RDDCB4+12,R7 GET NO. OF BYTES TO CLEAR 

3395 x : 0039DC 6D08 3866 3409 MVW RDDCB+14, RS ADDR OF READ BUFFER 

3296 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 0039EO OBFF 3410 MVBI X!FF*,R3 CLEAR TO F'S 

3297 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 0039E2 2BAC 3411 FFN R3, (R5) * 

3398 + 0039E4 6802 39EE 3412 B XIODG ISSUE START CS DIAG CMD 

3299 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 3414 COPY T/JAXEQ OOMART78 

3300 x : 3415 PRINT OFF 

3301 * 1 BAL $RKEW, R6 READ SECTOR ID SKEWED 3979 T7AXEQ 

3302 * é 3980 + 2 OC RR oR GOK ak dock tokoaks 29 J UL76** 

3303 * 2 BAL $WKEW,R6 WRITE SECTOR ID SKEWED 3981+* 

3304 * : 3982+* SUB+ROUTINE 

3305 * 3. BAL $WSEC,R6 WRITE SECTOR ID 3983+* 

3306 * z 39844+* EXECUTE INPUT AND OUTPUT COMMANDS 

3307 * 4 BAL $DIAG,R6 DIAGNOSTIC 3985+* 

3308 * £ 3986+* PURPOSE 

3309 * 5 BAL XIOCS, R6 CYCLE STEAL STATUS 3987+* 

3310 * 3988+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 

3313 x 6 BAL $SSEEK,R6 SEEK seen ee THIS SUBROUTINE ILL DO THE FOLLOWING FUNCTIONS: 

x . 

3313 * 7 BAL SRECL, R6 RECALIBRATE 3991+ 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 

3314 * a 3992+* THE I/O COMMAND. 

3315 * 8 BAL $RDID, R6 READ SECTOR ID 3993+4+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 

3316 * ‘i 3994+* ISSUED BY THIS SUBROUTINE. 

3317 * 9 BAL SRD, R6 READ 3995+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 

3318 * i 3996+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 

3319 * 10 BAL SRDVY, R6 READ VERIFY 3997+ 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 

3320 * . 3998+ SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 

3331 * 11. BAL SWRT, R6 WRITE 3999+ MYSTERY INTERRUPT (HI) CONTROL BIT IS SET. 

3322 * 4O00+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 

3323 * 12 BAL SRDIM, R6 READ MULTI SECTOR IDS 400 14+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE tsvé START*. 

3355 x 4OO2+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 

3325 JE IO CCC IO IO OIG GO ia a OI ia ake #ok 4003+* STARTS TO DETERMINE A LOST INTERRUPT. 

3356 * 4OO4+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
0038EB2 4020 3AFA 3818 3327 $SEEK MVA  SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 4OOS+% WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
0038EF8 507F 3328 5 XIO 4O06+* 8. CHECK IF THERE WAS A WRONG INTERPUPT LEVEL. 

3359 x 4O07+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
0038EA 4020 3AFA 37E8 3330 S$RECL MVA  CLDCB,IODCB SET UP BLOCK FOR SVC CALL 4OO8+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
0038F0 507B 3331 5 XIO 4O09+* 11. CHECK TO SEE IF THE EXERCISER IS TO Bk TERMINATED. 

3332 x 4010+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
0038F2 4020 3AFA 3808 3333 $RDID MVA_ RSDCB,IODCB SET UP BLOCK FOR SVC CALL 4O11+* ISSUED BY THIS SUBRQUTINE. 
0038F8 OBBB 3334 MVBI X'BB',R3 SET BUFFER TO BIS 4012+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A 
OO38FA 4524 3785 3335 MVA  SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 40 13+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
OO38FE 4724 0004 3336 MVWL 7 SETUP BUFFER LENGTH 4OW4+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
003902 2BAC 3337 FFN R3 (BS) INIT READ SECTOR ID BUFFER 40 15+* 

_ 003904 4020 3816 378E 3338 MVA  SCTID, RSDCB+14 DATA ADDR 4016+* CALLING SEQUENCE 
00390A 506E 3339 J XIO 4O17+* 

3340 * 4018+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
00390C 4020 3AFA 3888 3341 SRDIM MVA RMDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 4019+* 

003912 4724 0084 3342 MVWI 132,R7 SET BUFFER LENGTH 4O20+* --> BAL XxIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
003916 4524 38C2 3343 MVA 1D06 RS SET BUFFER ADDRESS 4021+* --> BAL XI0O1 MON) PARM PRELOADED IN *IOMOp! 
00391A OBBB 3344 MVBI X'BB*.R3 SFT CLEAR CHARACTERS 4YO22+* --> BAL XIOCS, R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
00391cC 2BAC 3345 FFN R3, (R5) CLEAR THE BUFFER 4QO23+* -~> BAL XIOCS~-4,R6 AUTO CS STATUS Aroeaeuane OTHER XIO 
00391E 5064 3346 ; J XIO eet 2 AND DOES NOT POST INTERRUPT STATUS) 
003920 OBFF 3348 SRD MVBI X*FF',R3 SETRD BUFFER TO ALL F'S 4Q26+* RETURN CONTROL 
003922 6D08 3866 3349 MVW RDDCB414, R5 SET UP READ BUFFER ADRS 4027+* 
003926 6F08 3864 3350 MVW RDDCB+12,R7 SET UP BUFFER LENGTH 4O28+* BXS R6, 2) RETURN TO USER NO ERROR 
00392A 2BAC 3351 FFN R3 85) CLEAR READ BUFFER 4Q029+* OR B 6{ * RETURN AND RETRY ON ERROR 
00392cC 4020 3AFA 3858 3352 SRDS MVA RDp B, ODCB SET UP BLOCK FOR SVC CALL UC 30 HK HK HH HH AH HH HH HR he EK 2 Ke ae Ce he a 2 ee CK i He 2K a a 2 ae i ec atc ae eo a oe ee ok ok ok ok 
003932 505A 3353 J XIO 0039E8 CB25 3AFC 40 32+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
Sui. Lge ean, Bale 3354 : 0039EC S500E ae J XIO1 CS I/O'S ARE NOT RETRIED 

RDVY MVA VRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003938 5056 3356 J xIo.” 0039EE 4020 3AFC OO00D 4035+XIODG MVWI X*'0O00D*",IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 

3357 * 0039F4 SOOA 40 36+ J XIO1 GO TO CS OPS 
00393C 4020 3AFA 3838 3358 SWRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 4O37+* 

003943 5052 3359 J XIO 0039F6 4CAA 40 38+ TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 

3360 * 0039F8 4C68 40 39+ TBTS R4,CS SET 'CYCLE STEAL STATUS' IN PROGRESS 
003944 4020 3AFA 3878 3361 SRKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL OO39FA 4020 3AFA 3828 GO4Q+XIOCS MVA SDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
00394A OBBB 3362 MVBI X'BB!,R3 SET BUFFER TO Bts 003A00 4020 3AFC OOOF “O41+ MVWI X'000F', TOMOD SET CYCLE STEAL MODIFIER 
00394C 4524 378k 3363 MVA SCTID, R5 SETUP READ SECTOR ID BUFFER ADRS 003A06 4C28 4O4U2Q+ TBT <0 CS) IS CS IN PROGRESS, ERROR CONDITION 
003950 4724 0004 3364 MVWI 4,R7 SETUP BUFFER LENGTH QO3A08 1213 4O43+ JON 102 * YES, BYPASS SAVING I/O ADRS 
003954 2BAC 3365 FFN R3 {B5) INIT READ SECTOR ID BUFFER OOZ3AO0A 6E0D 378C YO4uU4K+XTON MVW R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED 
003956 4020 3886 378E 3366 MVA sch D, RKDCB+14 DATA ADDR OO3Z3A0E 4324 3796 4O45+ MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 
60395c 5045 3367 J X10 003A12 6D08 3AFA HOUG+ MVW TODCB,R5 * AND THE FROM ADRS, ALONG WITH 

3368 * 003A16 OF1A “OU T+ MVBI 26,R * THE NUMBER OF MOVES 
00395E 4020 3APA 3868 3369 SWKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003A18 2D64 4O4U8+ MVFN SR) R3) MOVE 1 STATUS WORD AND ADJUST 
003964 4020 3876 38A6 3370 MVA WRSID,WKDCB+14 DATA ADDR OO3A1A OBFF 4O49+ MVBI 255,8 CLEAR CYCLE STATUS BUFFER 
00396A 503E 3371 J XIO 003A1C 4524 37A6 4O50+ MVA CSBOF,R5 * TO ALL ONES * 

Hn pogo OF ee eee eee 
00396C 4020 3AFA 37F8 3373 $WSEC MVA WSDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL Mi R R * 

003972 4020 3806 38A6 3374 MVA WRSID,WSDCB+14 DATA ADDR O003A24 4020 3788 0708 4053+ MVWI £76408", SIOIN OVERLAY OLD CONDITION CODES 

003978 5037 3375 F J XIO OO3A2A CB25 378A meee MVWZ SISB,R3 ZERO OUT OLD ISB VALUE 

00397A 4020 3AFA 37D8 3377 SDIAG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL QOO3A2ZE 4CAl1 4056+ TBTR R4Y,ER RESET ANY ERROR BEFORE I/O COMMAND 
003980 5033 3378 J XIO 003A30 4cCA3 4O57+XIO2 TBTR R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 

3379 * 003A32 4724 3AF6 4058+ MVA OBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 
003982 6E0D 378C 3380 $SWRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 003A36 4CAE6 4059+ TBTR (R4,$LE) RESET LEVEL ERROR INDICATOR 
003986 OBFF 3381 MVBI 2 E R3 CLEAR CYCLE STATUS BUFFER 003A38 4C62 4060+ TBTS R4, XT) SET EXPECTED INTR CONTROL BIT 
003988 4524 37A6 3382 MVA CSBOF,R5 * TO ALL ONES * OO3A3A 600A 4O61+ SVC TART CALL SUPVR FOR I/O COMMAND 
00398C OF16 3383 MVBI 22,R7 * 4O062+* 
00398E 2BAC 3384 FFN R3 fB5) 2K 003A3C 4CAT 4063+ TBTR CRE oy IS AN INTR EXPECTED 
003990 4524 3796 3385 MVA DCBUF, R5 CLEAR DCB BUFFER TO ALL ONES OO3A3E 6ACO 0002 4O64+ BN R6, 2) * NO, RETURN TO USER 
003994 OF10 3386 MVBI 16,R7 * 4065+* 

003996 2BAC 3387 FFN R3 §R5) iH 4066+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
003998 4020 3788 0708 3388 Mvwi X'6708°,$I0IN OVERLAY OLD CONDITION CODES 4O67+* 

00399F CB25 378A 3389 MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE OO3BA42 4524 0000 4O68+t MVWI O,R5 SET UP WORK REG FOR "LOST INTR! 
0039A2 4CA3 3390 TBTR (RG,{fN CLEAR INTERRUPT RECEIVED CNTL BIT OO3A46 4CA3 4069+XIO8 TBTR ie IN) HAS INTERRUPT BEEN RECEIVED 

OO39A4 4CcAl 3391 TBTR RY, ER RESET ANY ERROR BEFORE I/O COMMAND 003A48 1239 4O70+ JON TOeK * YES, CHECK IF ALL WAS SATISFACTORY 
003986 4C62 3392 TBTS RO. XI SET EXPECTED INTR CONTROL BIT OO3A4A 6002 4O71+ SVC IDLE ALLO®W ANOTHER PROGRAM A CHANCE TO RUN 
0039488 4724 3AF6 3393 MVA OBLK,R7 SET UP CONTROL BLK FOR SUPR GO72+* SUPVR WILL RETURN HERE 

0039AC C020 3AFD 3394 MVB IOMOD+1,RO GET IDCB FUNC/MODIFIER OO03A4C 6002 4QO73+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
0039B0 402D 3AFC OOFO 3395 RBTWI X'OOFOt, IOMOD REMOVE FUNCTION FROM "IOMOD! 4O7T4+* SUPVR WILL RETURN HERE 
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OBJECT TEXT 


STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
AWI = 1, R5 ADVANCE TIME OUT COUNT 
JNZ  xfoB BCH IF TIME OUT NOT REACHED 
TBTS (RY ER) SET ON ERROR CONTROL BIT 
B R6{ * ERR 'NO INTERRUPT* 
AIO tok a ROK Ko OR RK ok ko kk kok kok tok kok tok kk kK KO BF EBT 6* * 
* SUBROUTINE 
x I/O EXECUTE ERROR HANDLING ROUTINE 
* PURPOSE 
THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
PROBLEM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THE 
SUPERVISOR AND IT WAS NOT ACCEPTED. 
CALLING SEQUENCE 
SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
RETURN CONTROL 
B (R6) * RETURN TO USERS ERROR HANDLER 
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CC O= DEVICE NOT ATTACHED 
FOR 
I/O 


DEVICE BUSY 

DEVICE BUSY AFTER RESET 
COMMAND REJECT 
INTERVENTION REQUIRED 
INTERFACE DATA CHECK 
CONTROLLER BUSY 

I/O COMMAND EXCEPTED 


COPY STATUS ANY LEVEL INTO R3 
POSITION CC CODE TO BITS 13-15 
* PUT IN LOG OUT AREA 


RETURN TO USER ERROR HANDLER 
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SUB-ROUTINE 
ERROR INTERRUPT RUNS ON INTERRUPT LEVEL *$INTL' 
PURPOSE 
THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR 
OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE 
EXPECTED CODE, 
CALLING SEQUENCE 
SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT 
RETURN CONTROL 
SVC EXIT RETURN TO USER VIA SUPVR 
oe CK RK KK KO kk kK a kK tok kok kk kk ok kk ak kok ak kk kote ak aia ok ak ak kok 2k ak kok 
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FOR PROGRAM CONTROL INTERRUPT BITS 
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TTENTION DEVICE END INTR 


COPY STATUS ANY LEVEL INTO R3 
POSITION INDICATORS IN R3 

SET UP BASE ADRS 

Se IN PROGRESS 
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NTER CPLSR 
SRL 


MVA 
TBT 
JOFF 
TBTS TURN ON CYCLE STEAL INTER ERROR 
MVW ’ SAVE CS ERR ISB VALUE, BITS 0-7 
MVB 3 Dee * AND THE COND CODE 


J INTR 
INTES TBT (Ra XE) TEST EXPECTED ATTEN / ERROR IND 

JOFF INTET BCH IF NOT EXPECTED 

CBI 4,R3 IS THIS AN "ATTENTION' INTR 

JE ThtR1 * YES, BCH TO END INTR SEQUENCE 
INTET TBTS (R4, ER) SET ERROR ON I/O COMMAND CNTL BIT 


THE ERROR INTERRUPT USES THE SAME 


ENDING SEQUENCE AS THE NORMAL INTR 
ACI IO CG ICG roi doi oi io a oo iia Rc ok icek soak okt 7 DR 76 


SOUBROUTINE 

OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'S$INTL! 
PURPOSE 

TO CHECK THE INTERRUPT AND CONTINUE THE TEST 
CALLING SEQUENCE 


SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED 
THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE 
AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE 
COMMON SECTION IS HANDLED HERE. 


RETURN CONTROL 


SVC EXIT RETURN TO USER VIA SUPVR 
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SR 13,R3 POSITION INDICATORS IN R3 
MVA  OPTN1,R4 SET UP BASE ADRS 
INTR1 TBTS Ba, 1M) SET INTERRUPT RECEIVED 
TBT R4,CS IS 'CS IN PROGRESS' ON 
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STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 


TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
Se eeanope DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 


CALLING SEQUENCE 
THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 


CLEAR DEV DEP STG AND CONNECT I/0 BLK 


=-> BAL SCONC, R6 
PREPARE DEVICE ONLY, ALREADY CONNECT 


73>. BAL SCONP,R6 
RETURN CONTROL 


BXS (Re 2) RETURN TO USER VIA REG 6 IF OKAY 
OR B R6f * IF THE DEVICE COULD NOT BE CONNECTED 


He A 2 a i i 2h ae 2 2K a 2 2c 2h 2 aK ie eK ie i 2 2c 2 2 a a a 2h 2K ea Re ac 2h a ac a 2c a aie 2 2k ak i 2h 2c 2h a aie a 2 a ofc ke kc a oie ok ae ok kc ok 


SCONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
MVBI Hen * AND THE DATA TO USE 


HHH HHH HHH HH HH HH HH He HH 


4192+ JON INTR2 * YES, BCH AROUND UPDATE IL 
4193+ MVB 3,$10IN+1 SAVE £{NTERRUPTING CC CODE IL 
41944 MVW  R7,$ISB SAVE INTR STATUS AND DEV ADRS IL 
4195+ INTR2 ZOU * : IL 
4196+* CBCL RS CURRENT LEVEL COPIED BY DCP IL 
4197+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 
4198+ ABI 1.R5 * IN 'I' BIT IL 
41994 CW S{NTL,RS IS THIS THE CORRECT INTR LEVEL IL 
4200+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 
4201+ TBTS (R4, SLE) SET IfTR LEVEL ERROR CONTROL BIT IL 
4202+ TBTS (R4CER SET ERROR ON I/O COMMAND CNTL BIT IL 
4203+INTR3 TBTR (R4&/XT WAS INTERRUPT EXPECTED IL 
4204+ JON NTRX * YES, EXIT OFF THIS INTR LEVEL IL 
4205+ TBTS (Ra MI) * NO, SET MYSTERY INTR CONTROL BIT IL 
4206+ CBI R3 ATTENTION INTERRUPT? IL 
4207+ JE tht Rx YES IL 
4208+ TBTS (Ra NG) ERROR, UNEXPECTED INTERRUPT IL 
U209+4INTRX SVC XIf EXIT THIS LEVEL VIA SUPVR TO PGM IL 
UD 11H RH HK KK HK He KK HK KK KH KK KKK KK KK KKK KKK KKK KKK KE KEKE KEKEKKO OF ERT] A 4% 
4212+* 
4213+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
4214+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
y215+% RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
+ 
4217+* 
4218+XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 
4219+ BN R602) * YES, EXIT THIS ROUTINE 
4220+ TBTR (R4,CS5) WAS ATO CS IN PROGRESS 
4221+ JOFF XIocV * NO, CONTINUE CHECKING 
4222+ BT R4, CE) ts c§& IN AN ERR CONDITION 
4223+ JOFF X1I0CO * NO, BCH 
u 2244 B R6) * CS FRROR 
4225+XIOCO TBTS (R4,CSA) TURN ON CS STATS AVAIL FLAG 
4226+ BX S R6, 2 GO TO USER 
4227+XIOCV TBT RY, ER) WAS ERROR INTR CONTROL BIT ON 
4228+ JOFF XIocX * NO, EXIT THIS ROUTINE 
+ 
4230+ MVB  $IOIN+1,R5 GET LAST INTR CC CODE 
4231+ CBI 2,R5 IS THIS CC=2 
4232+ JE x Toco YES 
4233+ CBI 6,R5 IS THIS CC=6 
4234+ BNE (Pe) * * NO, BCH TO ERROR HANDLER 
4235+XIOCQ MVB ISB, RS GET £AST ISB DATA BYTE AND IF CS 
4236+ BN XToc §-4 * AVAILABLE, GO AND GET IT 
4237+ B Re) * ERROR 
4238+XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
4239+ BXS  (R6,25 RETURN TO USER VIA REG 6 
424 1+% I/O PARAMETER LIST 
4242+* 
4243+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
42443 DC A (XIOER) ERROR ROUTINE ADRS 
42U5+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 
4246+IOMOD DC A (*-* MODIFIER 
4247 DC A (*—* ADRS OF LAST SVC CALL 
4248 IORSP DC A *-* SECOND WORD OF LAST IDCB 
4250 * INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
4252+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
4253 DC A (INTOK INTERRUPT OK RETURN ADRS 
4254 A(INTER INTERRUPT ERROR ADRS 
4255+INTCC DC ' INTERRUPT CODE EXPECTED 
4257 MK AE AK 3 OC 2 2 2 2 2 2 IK I RC 2 2 2 he i 2 i a i 2 i aK a a ek ko 2 oe oi oc i ok ok KKK KK KKK TT MAY 7 6% * 
4258 
4259 SUBROUTINE 
4261 CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
4263+* PURPOSE 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
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MVA V1,R5 * ALONG WITH THE ADRS TO USE 
FFN  R3 (85) * 
MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
MVA  INTBL,R7 SET R7 TO CONTROL BLOCK AND 
SVC CICB * CONNECT IT TO THIS DEVICE 
F BN (R6) * ERROR RETURN TO USER 
$CONP MVW $INTL,IODCB PUT IN LEVEL & INTR PARAMETER 
MVA LIOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 
MVWI X*'0O708', $IOIN INITIALIZE CONDITION CODE STORAGE 
MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
MVW  R6,LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 
SVC PREP * AND CALL ON SUPVR 
BXS (R6,2) RETURN TO USER 
RO OO GI IORI BR aig OK doko 06 A PR 7 6* 
* SUBROUTINE 
* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
* PURPOSE 
* DISCONNECT THE INTERRUPT CONTROL .BLOCK TO THIS DEVICE AND 
* SET THE "NO GOOD' CONTROL BIT, THEN LOG THE DATA THAT HAS 
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T7A2> === FRU ISOLATION MAP P/N=8327659 EC=375222 PAGE 17 I7A22 --- FRU ISOLATION MAP P/N=8327659 EC=375222 PAGE 17A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
+* . 4U23+* 
re ae BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION Gi SS SSS ESTES SLE SST ESSE EES SS SS TSE SST SS ST STS EPS ESTES LES STS SSE SS SESS EES Ss S52 8 SS 
4311+* CALLING SEQUENCE 003D14 6FOD 37c8 44254+T7A10 MVW  R7,TURTN SAVE RETURN ADDRESS 
4312+% 003D18 4020 3786 7A10 4426+ MVWI X*7A10", $TUID SAVE TU ID FOR DISPLAY 
4313+% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 003D1E 4424 3780 4427+ MVA  OPTN1,R4 SET UP POINTER ADRS IN RG 
4314+% 003D22 6E03 3BOA 4428+ BAL $CONC’R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
4315+* --> B SERRS SET "NG*t BIT AND CONVERT DATA TO LOG 003D26 3B3E “429+ DC A ($ERR$) ERROR ADRS FOR INVALID PREP 
4316+* --> B $CONX RETURN TO MDI SUPERVISOR TO TEST STS 4430+% 
4317+* 003D28 9028 181C 18D2 4431 MVD TUWORK+2,TURESUL+10 MOVE ERROR WORDS 4,5 
4318+% RETURN CONTROL 003D2E 8028 1827 18CD 4432 MVB TUWORK+13,TURESUL+5 MOVE WRAP CHECK RESULTS 
+x 
4320+* B TURTN* RETURN TO MDI 003D34 6802 3BA0 4U34 B $CONX RETURN TO MDI CONTROLLER 
4321+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED UU 35 4 IOI OI ORO IOI IORI IOI II ORO OI IKK IO IO I KK OK 
4322+% 000000 4437 END 
TEMPE T SSS SST SS FPS TSP SS SST SS TSS SET TSS TSS SSS STS FSS SST SEF SESS ST TT SS FS SS SSS SSS SS SS SS 
003B3E 4020 1818 8000 43244+$ERR$ MVWI X'8000', TUSTATUS SET ON 'NO GOOD! STATUS BIT 
OO03B44 4Y724 3D0E 4325+ MVA HEBLK,R7 GET ADRS OF CONTROL BLOCK 
003B48 601A 4326+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
OO3B4A 4020 188EF 4040 4327+ MVWI X'4O40O", TUWORK+116 
003B50 4020 1890 4040 4328+ MVWL X*4GO40') TUWORK4+118 
003B56 4020 1892 4040 43294 MVWI X*4G0G0', TUWORK+120 
003B5c ODO04 4330+SPRNT MVBI 4,R5 
O03B5E 4324 181A 4331+ MVA  TOWORK,R3 SET UP BUFFER STORAGE 
003B62 6BOD 3D06 4332+ MVW  R3,BUFPT 
003B66 4124 3BE2 4333+ MVA  LINE1,R1 
003B6A OFOG 4334+ MVBI 4,R7 
003B6C OFOS 4335+ MVBI 8-R6 
OO03B6E 2B24 4336+MVBUF MVFN (R3)- (R1) 
003B70 OFOY 4337+ MVBI 4) R 
003B72 OA4O 4338+ MVBI xuot,R2 
003B74 C258 4339+ MVB R2 (gine 
003B76 BEFB 4340+ gct MVBUF,R6 
003B78 O08 43414 MVBI 8,R6 
003B7A 7921 002C 4342+ AWI 44.R1 
003B7E BDF7 43434 JCT  MVBUF,RS 
003B80 4020 1802 F1FO 4344+ MVWI PIDMSG10,PID+2 
003B86 4020 19B8 3D0C 4345+ MVA  FAKETU,a@DCADD1 
003B8C 4020 19BA 3D08 4346+ MVA  DC2PT,ODCADD2 
003B92 402c 19C4 0080 4347+ OWL BITOO80,SUPSTAT 
003B98 4324 3786 4348+ MVA $T0ID,R3 SET UP BUFFER STORAGE 
003B9C 6F13 18BA 43494 BAL TUMSGWTR*,R7 GO TO MESSAGE WRITER 
+ 
003BA0 4351+$CONX EQU * 
003BA0 C720 19D0 4352+ MVB DEVADD, R7 GET DEVICE ADDRESS FROM MDI 
OO3BA4 6013 4353+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
OO3BA6 6812 37C8 eee B TURTN* RETURN TO MDI SUPERVISOR 
+ 
OO3BAA 0009 4356+BEGIN DC a (0009 NUMBER OF LINES TO PRINT 
OO3BAC 0008 4357+ DC A (0008 LINE LENGTH = 8 CHAR 
OO3BAR SC5SC40C1IC2D6D9F3 4358+ DC Ct*x* ABORT! 
003BB6 0028 4359+ DC A (0040) LINE LENGTH = 4O CHAR 
003BB8 FE3E4CICH4UOCOD6ECID 4360+ DC C*fUID IOIN ISB INST SECT ID DATA cscc ! 
003BE0 0028 4361+ DC A (0040) LINE LENGTH = 40 CHAR 
OO3BR2 4OKO4O40404040404 43624+LINE1 DC cr t 
003COA 0028 4363+ DC A (0040) LINE LENGTH = 40 CHAR 
003COC C3D5E3D340CHC3C2F 4364+ DC C*CNTL DCB1 DCB2 DCB3 DCB4 CHAD BYCT ADRS * 
003C34 0028 4365+ DC A (0040) LINE LENGTH = 40 CHAR 
003C36 4OKOSOKO4OKO4O4O4 43664+LINE2 DC ct t 
003C5E 0028 4367+ DC A (0040) LINE LENGTH = 40 CHAR 
003C60 C3E260FO40C3E260F 4368+ DC C'CcS-0 CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 
003C88 0028 4369+ DC A (0040) LINE LENGTH = 40 CHAR 
OO3CBA 4OKO4OKO4O4O40404 43704LINE3 DC ce ' 
003CB2 0028 43714 DC A (0040) LINE LENGTH = 4O CHAR 
OO3CB4 C3E260F840C3E260F 4372+ DC C'cS-8 CS-9 CS-A CS-B CS-C t 
003CDC 0028 4373+ DC A (0040) LINE LENGTH = 4O CHAR 
OO3CDE 40404040404040404 4374+LINES DC ce t 
+ 
003D06 0000 4376+BUFPT DC A pe 
003D08 3BAA 4377+DC2PT DC A (BEGIN) 
OO3D0A 0101 4378+FIXTU DC X"0101° 
003D0C 0101 4379+FAKETU DC X*01018 
OOF 1FO 4380+PIDMSG10 EQU X*'F1FO! 
000080 4381+BTT0080 EOU xX'OO80' 
+ 
4393+# DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
+ 
003D0E 003A 4385+HEBLK DC A 58) NUMBER OF BYTES TO CONVERT 
003D10 3786 4386+ DC A($T TD) FROM ADRS 
003D12 181A 4387+ DC A (TUWORK) AND THE TO ADRS 
4388 COPY T7A10 23JAN78 
4389 T7A10 TULT 
Uf BOO A HH HH HH HA HHH eK I eK 2 eK 2 a a 2 i a aK hc 2K 2 ok oe oo eo ok kk kK KK KOH FER] 6% * 
43914+%* 
4392+* TEST UNIT 
439 34% 
4394+% ERROR HALT CODE/DIAG SENSE BYTE CHECK 
+ 
4396+* PURPOSE 
439T7+* 
4398+% TO MOVE THE ERROR HALT CODE, STATUS BYTE, AND DIAG BYTES 1,2 3 
439944 TO THE TU RESULTS BUFFER (TOURESUL) - 
+ “~. 
HhOi+s MDI=$TUXX,T7A10,01,0708, EQ 
+ e 
4403+4+* TURESUL BIT(S) O-7 ....--.. ERROR HALT CODE 
H404+* 645) Ses ols STATUS SENSE) BYTE 
4405+* : 5 ee eae SINGLE SHOT BYTE 1 (5-HURSLEY 
4U06+* Z Dla Sh cc ee oe SINGLE SHOT BYTE 2 (6-HURSLEY 
Q4O7+* : 32-39) oc dca-secs SINGLE SHOT BYTE 3 (7-HURSLEY 
4408+* : HBS 55 nccccc cic cee NOT USED 
4409+* : 56-63 asceaece MULTISAMPLE BYTE 1 (5-HURSLEY 
4410+% : rT ey et MULTISAMPLE BYTE 2 (6-HURSLEY 
a411+* A TIST9. aon cao kc MULTISAMPLE BYTE 3 (7-HURSLEY 
4412+% : 80-87 ........ WRAP BYTE 
44134+% 
uu 1u4% CALLING SEQUENCE 
+ 
4416+ MVW TUWORK, TURESUL MOVE ERROR HALT CODE & STATUS BYTES 
4417+ MVD TUWORK+6,TURESULt2 SINGLE SHOT BYTES 1, 2, AND 3 
4418+ MVD TUWORK+16,TURESUL+6 #MULTISAMPLE BYTES 1, 2, AND 3 
4419+* AND WRAP BYTE 
4420+* RETURN CONTROL 
4u21+* 
4422+ B TURTN* RETURN TO MDI SUPERVISOR 


4 
lit’ : 


LTA22--5= 


DECLARED 
4282 
4351 
4324 
2988 
2953 
2954 
2938 
2952 
3401 

102 
103 
39 


44 
45 


4356 
4381 
4376 
2942 
3027 
3124 
2940 
2941 
2971 
3162 
2961 
4377 
105 
2956 
2959 
3113 
67 
2565 
47 
2933 
3013 
4379 
2639 
2627 
2823 
2647 


2595 


2611 


2587 


FRU ISOLATION MAP 


NAME 

$C ONC 
SCONX 
SERR$ 
SINTL 
SIOIN 
SISB 
SLE 
$TUID 
$WRT1 
@DCADD1 
@DCADD2 
@FIXT 


@GOTO 
@TU XX 


BEGIN 
BITO0080 
BUFPT 
CE 
CICB 
CLDCB 
CS 

CSA 
CSBUF 
CSDCB 
DCBUF 
DC2PT 
DEVADD 
DEV1 
DEV4 
DGDCB 
DUMMY 
ENTPT 
EQ 

ER 
EXIT 
FAKETU 
FO00032 
FO00034 
FOO0045 
FO0046 


FOOOUS8 
F00053 


F00081 


P/N= 


8327659 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 
yABBRESS. HEX LOCATION (00003B0A) IN 
yRBBRESS. HEX LOCATION (00003BA0) IN 
yADBRESS. HEX LOCATION (00003B3E) IN 

ADDRESS. HEX LOCATION (000037C6) IN 

ADDRESS. HEX LOCATION (00003788) IN 

88 4053 4113 4193 4230 4293 

ADDRESS. HEX LOCATION (0000378A) IN 
3389 4054 4194 4235 4294 

ABSOLUTE. HEX VALUE (00000026) 

4059 4201 
ADDRESS. HEX LOCATION (00003786) IN 
8 4348 4386 

ADDRESS. HEX LOCATION (000039C2) IN 
ADDRESS. HEX LOCATION (000019B8) IN 
ADDRESS. HEX LOCATION (000019BA) IN 

ABSOLUTE. HEX VALUE (90000101) 

1116 1143 1146 1149 1152 ©1155 

1167 1182 1197 1200 1215 1218 
1290 1341 1344 1347 1362 1365 
1485 1488 1491 1494 1497 1500 
1572 1575 1602 1605 1608 1623 
1707 1710 1713 1752 1767 + 1770 
1854 1869 1872 1899 1926 1941 
1965 1992 2007 2034 2037 2040 
2148 82151 2154 2157 2172 2175 
2235 2250 2253 2256 2319 2346 
2382 2409 2412 2427 2430 2433 
2493 2496 2511 2574 2529 2508 

ABSOLUTE. HEX VALUE (00000200) 

ABSOLUTE. HEX VALUE (00000500) 

966 978 996 1008 1020 1032 
1080 1092 1104 1119 1131 1170 
1233. 1245 1260 1275 1293 1305 
1368 1380 1395 1407 1419 1437 
1506 1518 1536 1548 1560 1578 
1641 1653 1671 1683 1695 1716 
1782 179% 1806 1818 1830 1842 
1902 1914 1929 1944 1968 1980 
2043 2055 2073 2085 2097 2109 
2181 2193 2205 2220 2238 2259 
2307 2322 2334 2358 2370 2385 
2451 2463 2478 2499 2517 2532 
yADBRESS. HEX LOCATION(00003BAA) IN 
yABSOLUTE. HEX VALUE (00000080) 
yABBRESS. HEX LOCATION (00003006) IN 

ABSOLUTE. HEX VALUE (0000002A) 

4038 4152 4222 
yABSOLUTE. HEX VALUE (00000014) 
g4QRRESS. HEX LOCATION (000037E8) IN 

ABSOLUTE. HEX VALUE (00000028) 

4039 4042 4150 4191 422 
yBBSOLUTE. HEX’ VALUE (00000029) 

ADDRESS. HEX LOCATION (000037A6) IN 
3169 3382 4050 
yADBRESS. HEX LOCATION (00003828) IN 

ADDRESS. HEX LOCATION (00003796) IN 
3385 4045 
ADDRESS. HEX LOCATION (00003D08) IN 

ADDRESS. HEX LOCATION(000019D0) IN 
2991 4243 4252 4352 

ADDRESS. HEX LOCATION (0000378E) IN 
2960 4284 

ADDRESS. HEX LOCATION (00003794) IN 
4153 4154 
ADDRESS. HEX LOCATION(000037D8) IN 

ABSOLUTE, HEX VALUE(00000000) 

957 2564 2579 

ADDRESS. HEX LOCATION (000033CE) IN 

ABSOLUTE, HEX VALUE (90090000) 

969 981 1785 1809 2046 2337 

ABSOLUTE. HEX VALUE (00000921) 

3391 4056 4077 4160 420 227 
pABSOLUTE. HEX VALUE (00000006) 
yADBRESS. HEX LOCATION (00003D0C) IN 

JADBRESS. HEX LOCATION (0000347A) IN 

ADDRESS. HEX LOCATION (00003454) IN 
1201 1609 
oARDRESS. HEX LOCATION (00003626) IN 

ADDRESS. HEX LOCATION (00003494) IN 
1288 1435 1486 1666 1708 1753 

ADDRESS. HEX LOCATION (000033F0) IN 
1144 1150 1153 1291 1624 2152 
2428 2545 2563 

ADDRESS. HEX LOCATION (00003422) IN 
1162 1165 1342 1348 1432 1h9 
2041 2068 

ADDRESS. HEX LOCATION (000033D8) IN 
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2271 2283 
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LENGTH (2) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 


LENGTH (2) 


LENGTH (2) 


LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
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DECLARED 
2591 
2599 
2603 
2607 
2615 
26 19 
2623 
2631 
2635 
2643 
2651 
2655 
2659 
2663 
2667 
2671 
2675 
2679 
26 83 
2687 
2691 
2695 
2699 
2703 
2707 
2711 
2715 
2719 
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2727 
2731 
2735 
2739 
2743 
2747 
2751 
2755 
2759 
2763 
2767 
2771 
2775 
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2791 
2795 
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2807 
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2815 
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F00123 
FO00135 
FOO 144 
FO0147 
FO00156 
F00 163 
F00169 
F00179 
F00182 
FO00 202 
FO0234 
FOO 244 
FO00247 
F00258 
F00298 
FO00304 
F00307 
F00310 
F00313 
F00324 
FO00342 
F00356 
F00359 
F00371 
F00387 
FOO4OY4 
FOO0407 
FO00432 
FO0435 
FO0438 
FOO441 
FO00465 
FO0O472 
FOO475 
FO00486 
FO 0496 
F00503 
F00510 
F00513 
FO00516 
F00519 
F00530 
F00537 
FO0548 
F00567 
F00586 
F00597 
F00606 
F00613 
F00616 
F00619 
F00634 
FOO644 
F00657 
F00679 
F00689 
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ADDRESS. 
1117 
ADDRESS. 
1147 
ADDRESS. 
1156 
ADDRESS. 
1159 
ADDRESS. 
1168 
ADDRESS. 
1183 
ADDRESS. 
1198 
ADDRESS. 
216 
ADDRESS. 
1219 
ADDRESS. 
1273 
ADDRESS. 
1345 
ADDRESS. 
1363 
ADDRESS. 
366 
ADDRESS. 
1393 
ADDRESS. 
1489 
ADDRESS. 
1495 
ADDRESS. 
1498 
ADDRESS. 
1501 
ADDRESS. 
1504 
ADDRESS. 
1531 
ADDRESS. 
1573 
ADDRESS. 
603 
ADDRESS. 
1606 
ADDRESS. 
1627 
ADDRESS. 
669 
ADDRESS. 
1711 
ADDRESS. 
1714 
ADDRESS. 
771 
ADDRESS. 
1774 
ADDRESS. 
1777 
ADDRESS. 
1780 
ADDRESS. 
1855 
ADDRESS. 
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ADDRESS. 
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1900 
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ADDRESS. 
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AND 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
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HEX 
HEX 
HEX 
HEX 
HEX 
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HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
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HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
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REFERENCES 
LOCATION (000033E4) 
LOCATION (000033FE) 
LOCATION (0000340A) 
LOCATION (00003416) 
LOCATION (00003430) 
LOCATION (0000343C) 
LOCATION (00003448) 
LOCATION (00003462) 
LOCATION (00003468) 
LOCATION (00003488) 
LOCATION (000034A2) 
LOCATION (000034AE) 
LOCATION (000034BA) 
LOCATION (000034C6) 
LOCATION (000034D2) 
LOCATION (000034DE) 
LOCATION (000034EA) 
LOCATION (000034F6) 
LOCATION (00003502) 
LOCATION (0000350) 
LOCATION (0000351A) 
LOCATION (00003526) 
LOCATION (00003532) 
LOCATION (0000353E) 
LOCATION (0000354A) 
LOCATION (00003556) 
LOCATION (00003562) 
LOCATION (00003568) 
LOCATION (0000357A) 
LOCATION (000035 86) 
LOCATION (00003592) 
LOCATION (00003598) 
LOCATION (000035AA) 
LOCATION (000035B6) 
LOCATION (000035C2) 
LOCATION (000035CE) 
LOCATION (000035DA) 
LOCATION (000035£E6) 
LOCATION (000035F2) 
LOCATION (000035FE) 
LOCATION (0000360A) 
LOCATION (00003616) 
LOCATION (00003622) 
LOCATION (0000362E) 
LOCATION (0000363A) 
LOCATION (00003646) 
LOCATION (00003652) 
LOCATION (0000365E) 
LOCATION (0000366A) 
LOCATION (00003676) 
LOCATION (00003682) 
LOCATION (00003688) 
LOCATION (0000369A) 
LOCATION (000036B4) 
LOCATION (000036C0) 
LOCATION (000036CC) 
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CSECT (I7A22 
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LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
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LENGTH (1) 
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LENGTH (1) 
LENGTH (1) 
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LENGTH (1) 
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DECLARED 


2839 
2843 
2847 
2851 
2855 
2859 
2863 
2867 
2871 
2875 
2879 
2883 
2887 
2891 
4385 
3033 
3009 
3254 
2935 
4252 
4147 
4156 
4160 
4187 

63 
4209 
4190 
4195 
4203 
4243 
4245 


4246 
37 
4362 
2955 
2932 
4336 
2944 
2939 
966 
978 
990 
996 
1008 
1020 
1032 
1044 
1056 
1068 
1080 
1092 
1104 
1116 
1119 
1131 
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NAME 


FO00698 
F00708 
FO00722 
F00732 
F00735 
FO00741 
F00752 
FO00759 
F00762 
F00765 
F00772 
FO00775 
F00782 
F00796 
HEBLK 
HTOE 
IDLE 
IDO0O 
IN 
INTBL 
INTER 
INTES 
INTET 
INTOK 
INTRNL 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOMOD 
I7A22 
LINE1 
LSTIO 
MI 
MYBUF 
NG 

NI 
NO00001 
NO0002 
N00003 
NOO0004 
NO0005 
NO0Q006 
NO00007 
N00008 
NO00009 
NO0010 
NO0011 
NO00012 
N00013 
nN0O0014 
N00015 
NO00016 
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Bt aaa HEX LOCATION (000036D8) 
yee HEX LOCATION (000036E4) 
ee ae HEX LOCATION (000036F0) 


>ADDRESS. HEX LOCATION (000036FC) 
> ADDRESS. HEX LOCATION (00003708) 
> ADDRESS. HEX LOCATION (00003714) 
>ADDRESS. HEX LOCATION (00003720) 
ADDRESS. HEX LOCATION (0000372C) 
“ADDRESS. HEX LOCATION (00003738) 
ADDRESS. HEX LOCATION (00003744) 
2 DDRESS. HEX LOCATION (00003750) 
RDORESS. HEX LOCATION (0000375C) 
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pABSOLUTE. HEX VALUE (0000001A) 
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OLUTE. HEX VALUE (00000023) 

3 4057 4069 4190 
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RESS. HEX LOCATION (00003A66) 
RESS. HEX LOCATION (00003A7E) 
RESS. HEX LOCATION (00003A86) 
RESS. HEX LOCATION (00003A8A) 
OLUTE. HEX VALUE (00000000) 

RESS. HEX LOCATION (00003ABA) 
RESS. HEX LOCATION (00003A92) 
RESS. HEX LOCATION (00003AA0) 
RESS. HEX LOCATION (00003AAE) 
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3 3395 4032 4035 4041 
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RESS. HEX LOCATION(0000378C) IN 
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RESS, HEX LOCATION (0000285C) 
RESS. HEX LOCATION (00002862) 
RESS. HEX LOCATION (00002880) 
RESS, HEX LOCATION (0000288C) 
HEX LOCATION (000028A6) 
HEX LOCATION (000028BE) 
HEX LOCATION (000028D8) 
ADDRESS. HEX LOCATION (000028F0) 
ADDRESS. HEX LOCATION (00002908) 
ApoREss. HEX LOCATION (00002920) 
ADDRESS. HEX LOCATION (00002938) 
ADDRESS. HEX LOCATION (00002950) 
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ADDRESS. HEX LOCATION (00002968) 
ADDRESS. HEX LOCATION (00002980) 
ADDRESS. HEX LOCATION (00002984) 
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CSECT (I17A22 ) LENGTH (1) 
CSECT (I7A22 ) LENGTH (1) 
CSECT (I7A22 ) LENGTH(1) 
CSECT (I17A22 ) LENGTH (1) 
CSECT (I7A22 ) LENGTH (1) 
CSECT (I7A22 ) LENGTH (1) 
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CSECT (I7A22 ) LENGTH (1) 
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CROSS~REFERENCE LISTING 


REFERENCES 


LOCATION (00002982) 
LOCATION (000029B6) 
LOCATION (000029BA) 
LOCATION (000029BE) 
LOCATION (000029C2) 
LOCATION (000029C6) 
LOCATION (000029CA) 
LOCATION (000029CE) 
LOCATION (000029D2) 
LOCATION (000029D6) 
LOCATION (000029EE) 
LOCATION (000029F2) 
LOCATION (00002A04) 
LOCATION (00002A08) 
LOCATION (00002A0C) 
LOCATION (00002A24) 
LOCATION (00002A28) 
LOCATION (00002A2C) 
LOCATION (00002A44) 
LOCATION (00002A62) 
LOCATION (00002A74) 
LOCATION (00002A78) 
LOCATION (00002A90) 
LOCATION (00002A94) 
LOCATION (00002AAC) 
LOCATION (00002AB0) 
LOCATION (00002AB4) 
LOCATION (00002ACC) 
LOCATION (00002AE4) 
LOCATION (00002AFC) 
LOCATION (00002B14) 
LOCATION (00002818) 
LOCATION (00002B1C) 
LOCATION (00002B20) 
LOCATION (00002B38) 
LOCATION (00002B3C) 
LOCATION (00002B40) 
LOCATION (00002B58) 
LOCATION (00002B72) 
LOCATION (00002B76) 
LOCATION (00002B8E) 
LOCATION (00002BA6) 
LOCATION (00002BBE) 
LOCATION (00002BC2) 
LOCATION (00002BC6) 
LOCATION (00002BDE) 
LOCATION (00002BF6) 
LOCATION (00002COE) 
LOCATION (00002C26) 
LOCATION (00002C2A) 
LOCATION (00002C2E) 
LOCATION (00002C32) 
LOCATION (00002C36) 
LOCATION (00002C3A) 
LOCATION (00002C3E) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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DECLARED 
1506 
1518 
1530 
1533 
1536 
1548 
1560 
1572 
1575 
1578 
1590 
1602 
1605 
1608 
1611 
1623 
1626 
1629 
1641 
1653 
1665 
1668 
1671 
1683 
1695 
1707 
1710 
1713 
1716 
1728 
1740 
1752 
1755 
1767 
1770 
1773 
1776 
1779 
1782 
1794 
1806 
1818 
1830 
1842 
1854 
1857 
1869 
1872 
1875 
1887 
1899 
1902 
1914 
1926 
1929 
1941 


FRU ISOLATION MAP 


NAME ATTRIBUTES AND 
N00072 ADDRESS. HEX 
528 1222 
N00073 ADDRESS. HEX 
NO0074 ADDRESS. HEX 
N00075 ADDRESS. HEX 
537 1519 
N00076 ADDRESS. HEX 
540 1507 
N00077 ADDRESS. HEX 
N00078 ADDRESS. HEX 
N00079 ADDRESS. HEX 
N00080 ADDRESS. HEX 
552 1561 
N00081 ADDRESS. HEX 
555 1549 
N00082 ADDRESS. HEX 
N00083 ADDRESS. HEX 
NOO0084 ADDRESS. HEX 
564 1591 
N00085 ADDRESS. HEX 
567 1579 
N00086 ADDRESS. HEX 
570 1537 
NO0087 ADDRESS. HEX 
N00088 ADDRESS. HEX 
576 1612 
N00089 ADDRESS. HEX 
579 967 
nN00090 ADDRESS. HEX 
N00091 ADDRESS. HEX 
n00092 ADDRESS. HEX 
n00093 ADDRESS. HEX 
591 1654 
N00094 ADDRESS. HEX 
594 1642 
NO00095 ADDRESS. HEX 
N00096 ADDRESS. HEX 
N00097 ADDRESS. HEX 
N00098 ADDRESS. HEX 
606 1696 
y00099 ADDRESS. HEX 
609 1684 
N00100 ADDRESS. HEX 
612 1672 
N00 101 ADDRESS. HEX 
N00102 ADDRESS. HEX 
N00103 ADDRESS. HEX 
N00104 ADDRESS. HEX 
624 1741 
N00105 ADDRESS. HEX 
N00106 ADDRESS. HEX 
630 1756 
NO0107 ADDRESS. HEX 
633 1729 
N00108 ADDRESS. HEX 
636 1717 
N00109 ADDRESS. HEX 
639 1630 
N00110 ADDRESS. HEX 
642 2578 
N00111 ADDRESS. HEX 
N00112 ADDRESS. HEX 
N00113 ADDRESS. HEX 
N00114 ADDRESS. HEX 
N00115 ADDRESS. HEX 
NO0116 ADDRESS. HEX 
N00117 ADDRESS. HEX 
663 1843 
N00118 ADDRESS. HEX 
N00119 ADDRESS. HEX 
669 1858 
N00120 ADDRESS. HEX 
672 1831 
N00121 ADDRESS. HEX 
N00122 ADDRESS. HEX 
N00123 ADDRESS. HEX 
681 1888 
N00124 ADDRESS. HEX 
N00125 ADDRESS. HEX 
N00126 ADDRESS. HEX 
690 1915 
N00127 ADDRESS. HEX 
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REFERENCES 

LOCATION (00002C42) 
LOCATION (00002C5A) 
LOCATION (00002C72) 
LOCATION (00002C76) 
LOCATION (00002C7A) 
LOCATION (00002C92) 
LOCATION (00002CAA) 
LOCATION (00002CC4) 
LOCATION (00002CC8) 
LOCATION (00002CCC) 
LOCATION (00002CE6) 
LOCATION (00002CFE) 
LOCATION (00002D02) 
LOCATION (00002D06) 
LOCATION (00002D0A) 
LOCATION (00002D1C) 
LOCATION (00002D20) 
LOCATION (00002D24) 
LOCATION (00002D36) 
LOCATION (00002D54) 
LOCATION (00002D6C) 
LOCATION (00002D70) 
LOCATION (00002D74) 
LOCATION (00002D86) 
LOCATION (00002D9) 
LOCATION (00002DB8) 
LOCATION (00002DBC) 
LOCATION (00002DC0) 
LOCATION (00002DC4) 
LOCATION (00002DDC) 
LOCATION (00002DF6) 
LOCATION (00002E0E) 
LOCATION (00002E12) 
LOCATION (00002E2A) 
LOCATION (00002E2E) 
LOCATION (00002E32) 
LOCATION (00002E36) 
LOCATION (00002E3A) 
LOCATION (00002E3E) 
LOCATION (00002E50) 
LOCATION (00002E68) 
LOCATION (00002E7A) 
LOCATION (00002E8C) 
LOCATION (00002EA4) 
LOCATION (00002EB6) 
LOCATION (00002EBA) 
LOCATION (00002ED2) 
LOCATION (00002ED6) 
LOCATION (00002EDA) 
LOCATION (00002EF2) 
LOCATION (00002F0A) 
LOCATION (00002F0E) 
LOCATION (00002F26) 
LOCATION (00002F38) 
LOCATION (00002F3C) 
LOCATION (00002F54) 
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IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH (2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22. ) LENGTH (2) 
IN CSECT(I7A22 ) LENGTH (2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22. ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH (2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22. ) LENGTH(2) 
IN CSECT(I7A22. ) LENGTH (2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH (2) 
IN CSECT(I7A22 ) LENGTH (2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22. ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22. ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH (2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH (2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH (2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH (2) 
IN CSECT(I7A22  ) LENGTH (2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH (2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22. ) LENGTH (2) 
IN CSECT(I7A22 ) LENGTH(2) 
IN CSECT(I7A22 ) LENGTH (2) 
IN CSECT(I7A22  ) LENGTH (2) 
IN CSECT(I7A22  ) LENGTH(2) 
IN CSECT(I7A22  ) LENGTH (2) 
IN CSECT(I7A22. ) LENGTH(2) 
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1944 
1956 
1959 
1962 
1965 
1968 
1980 
1992 
1995 
2007 
2010 
2022 
2034 
2037 
2040 
2043 
2055 
2067 
2070 
2073 
2085 
2097 
2109 
2121 
2124 
2136 
2148 
2151 
2154 
2157 
2160 
2172 
2175 
2178 
2181 
2193 
2205 
2217 
2220 
2232 
2235 
2238 
2250 
2253 
2256 
2259 
2271 
2283 
2295 
2307 
2319 
2322 
2334 
2346 
2349 


FRU ISOLATION MAP 


NAME ATTRIBUTES AND 
693 
N00128 ADDRESS. HEX 
696 1930 
N00129 NY aat HEX 
N00130 ADDRESS. HEX 
702 1945 
N00131 ADDRESS. HEX 
705 1903 
N00132 ADDRESS. HEX 
708 1876 
N00133 ADDRESS. HEX 
711 +1819 
N00134 ot aaa HEX 
NO00135 POURED Ss HEX 
N00136 ADDRESS. HEX 
720 1981 
N00137 SDR REOS« HEX 
N00138 ADDRESS. HEX 
726 1996 
N00 139 oo HEX 
NO0O0140 pep Rees: HEX 
NOO141 ADDRESS. HEX 
735 2023 
NO0142 ADDRESS. HEX 
738 2011 
N00143 ADDRESS. HEX 
741 1969 
NOO144 a HEX 
NOO145 eee HEX 
N00146 ADDRESS. HEX 
750 2056 
NOO147 ADDRESS. HEX 
753 2044 
NO00148 ADDRESS. HEX 
n00149 apg HEX 
N00 150 BDO RESS. HEX 
N00151 aoe es HEX 
N00152 ADDRESS. HEX 
768 2110 
N00153 SUDRESS- HEX 
NO00154 BUR Rees HEX 
NO00155 ADDRESS. _ HEX 
7772137 
N00156 ADDRESS. HEX 
780 2125 
NO00157 ADDRESS. HEX 
783 2098 
N00158 ADDRESS. HEX 
786 2086 
N00159 eae HEX 
N00160 ADDRESS. HEX 
792 2161 
N00161 ADDRESS. HEX 
795 2074 
N00162 ADDRESS. HEX 
798 1807 
N00163 Ti hea HEX 
NO0164 ST aang HEX 
NO00165 a a HEX 
N00166 ADDRESS. HEX 
810 2206 
NO00167 oe aaa HEX 
N00168 ADDRESS. HEX 
816 2221 
nN00169 ADDRESS. HEX 
819 2194 
N00170 Boy HEX 
N00171 ADDRESS. HEX 
825 2239 
N00172 ADDRESS. HEX 
828 2182 
N00173 ADDRESS. HEX 
831 1795 
NOO174 a HEX 
NO00175 REURESS HEX 
N00176 sine HEX 
NO00177 aaa HEX 
N00178 Bie HEX 
N00179 ADDRESS. HEX 
849 230 
N00180 Ae oaks HEX 
N00181 Sl aaa HEX 
N00182 ADDRESS. _ HEX 
858 2335 
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REFERENCES 


LOCATION (00002F58) 
LOCATION (00002F72) 
LOCATION (00002F76) 
LOCATION (00002F7A) 
LOCATION (00002F7E) 
LOCATION (00002F82) 
LOCATION (00002F9A) 
LOCATION (00002FB2) 
LOCATION (0000 2FB6) 
LOCATION (00002FCE) 
LOCATION (00002FD2) 
LOCATION (00002FEA) 
LOCATION (00003002) 
LOCATION (00003006) 
LOCATION (0000300A) 
LOCATION (00003008) 
LOCATION (00003020) 
LOCATION (00003038) 
LOCATION (0000303C) 
LOCATION (00003040) 
LOCATION (0000305A) 
LOCATION (00003072) 
LOCATION (0000308A) 
LOCATION (000030A2) 
LOCATION (000030A6) 
LOCATION (000030BE) 
LOCATION (000030D6) 
LOCATION (000030DA) 
LOCATION (000030DE) 
LOCATION (000030E2) 
LOCATION (000030£6) 
LOCATION (000030FE) 
LOCATION (00003102) 
LOCATION (00003106) 
LOCATION (0000310A) 
LOCATION (00003122) 
LOCATION (00003 13A) 
LOCATION (00003152) 
LOCATION (00003156) 
LOCATION (0000316E) 
LOCATION (00003172) 
LOCATION (00003176) 
LOCATION (0000318) 
LOCATION (00003192) 
LOCATION (00003196) 
LOCATION (00003198) 
LOCATION (000031B4) 
LOCATION (000031CC) 
LOCATION (000031EA) 
LOCATION (00003202) 
LOCATION (0000321C) 
LOCATION (00003220) 
LOCATION (00003238) 
LOCATION (0000324A) 
LOCATION (00003248) 
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CSECT (I7A22 
CSECT (I7A22 
CSECT (I7A22 
CSECT (17A22 
CSECT (I7A22 
CSECT (I7A22 
CSECT(1I7A22 
CSECT (I7A22 
CSECT (I7A22 
CSECT(1I7A22 
CSECT (I7A22 
CSECT (I7A22 
CSECT (1I7A22 
CSECT (I7A22 
CSECT (I7A22 
CSECT (17A22 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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2352 
2355 
2358 
2370 
2382 
2385 
2397 
2409 
2412 
2415 
2427 
2430 
2433 
2436 
2448 
2451 
2463 
2475 
2478 
2490 
2493 
2496 
2499 
2511 
2514 
2517 
2529 
2532 
2544 
2547 
2559 
2562 

58 


57 


2897 
2920 
101 


69 


4380 
3019 
3195 
3026 
3217 


FRU ISOLATION MAP 


NAME 
N00 183 
NO0184 
n00185 
N00186 
N00 187 
N00188 
N00189 
N00190 
N00191 
NO00192 
N00193 
NO0194 
nN00195 
N00196 
N00 197 
N00198 
N00199 
N00200 
NO0201 
NO00202 
N00203 
NO00204 
N00205 
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